
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TCMOVI_BANC_U02]              
/*-------------------------------------------------------*/              
/*---Empresa              : OFISIS S.A.                --*/              
/*---Cliente              : OFISIS                       --*/              
/*---Sistema              : Tesoreria                  --*/              
/*---M÷dulo               : Empresa                    --*/              
/*---Programa             : Actualizaci¸n Cabecera     --*/              
/*---                       Movimiento Bancos(Ingresos)--*/              
/*---Script               : tcmovi_b.sql               --*/              
/*---Nombre SP            : SP_TCMOVI_BANC_U02         --*/              
/*---Desarrollado por     : Javier Flores A.           --*/              
/*---Fecha Creaci÷n       : 08/06/1999                 --*/              
/*---Base Datos           : Microsoft Sql Server       --*/              
/*---Versi÷n              : 7.0                        --*/              
/*---Invoca a SP          :                            --*/              
/*-------------------------------------------------------*/              
/*-------------------------------------------------------*/                  
/*---Modificado 1 por     : M.E.C                       --*/                  
/*---Fecha Modificaci÷n   : 14/08/2007                 --*/                   
/*---Detalle Modificaci÷n : se adiciono @INFA_CAMB_EXTR--*/                  
/*-------------------------------------------------------*/                  
/*-------------------------------------------------------*/              
/*---Comentarios                                       --*/              
/*---                                                  --*/              
/*---                                                  --*/              
/*-------------------------------------------------------*/              
/*-------------------------------------------------------*/              
/*--- Drop Proc SP_TCMOVI_BANC_U02                     --*/              
/*--- Grant Execute on SP_TCMOVI_BANC_U02 to public    --*/               
/*--- SP_TCMOVI_BANC_U02                               --*/              
/*-------------------------------------------------------*/              
     
              
              
 As     
 DECLARE     
 @ISCO_EMPR   TD_VC_002,               
 @ISCO_USUA_MODI  TD_VC_008_USUA,              
 @ISCO_BANC   TD_VC_003,               
 @ISNU_CNTA_BANC  TD_VC_020,              
 @ISAA_BNCO   TD_VC_004,               
 @ISMM_BNCO   TD_VC_002,               
 @ISTI_MOVI_BANC  TD_VC_001,                
 @ISNU_COMP_BANC  TD_VC_008,               
 @IDFE_OPER   TD_DT_001,               
 @ISCO_TIPO_OPER  TD_VC_003,               
 @ISCO_SUBR   TD_VC_003,              
 @ISCO_TIPO_DOCU  TD_VC_003,               
 @ISNU_DOCU_BANC  TD_VC_020,               
 @INFA_TIPO_CAMB  TD_NU_015_006,               
 @INFA_CAMB_EXTR TD_NU_015_006,            
 @ISCO_BANC_CHEQ  TD_VC_003,               
 @ISNU_CHEQ   TD_VC_020,              
 @INIM_MOVI    TD_NU_016_004,               
 @ISTI_ENTI    TD_VC_001,              
 @ISCO_ENTI   TD_VC_020,               
 @ISDE_NOMB_ORDE  TD_VC_100,               
 @ISSI_SOLO_BANC  TD_VC_001_SINO,               
 @ISDE_OBSE   TD_VC_100,               
 @IDFE_DISP   TD_DT_001,              
 @ISCO_ENTR_REND  TD_VC_004,              
 @ISCO_UNID_CNTB  TD_VC_003,              
 @ISNU_RECI_COBR  TD_VC_010,              
 @IDFE_RECI_COBR  TD_DT_001,              
 @IDFE_DIFE    TD_DT_001,              
 @ISCO_GRUP_CONC  TD_VC_020,              
 @ISNU_SOLI             TD_VC_010,            
 @ISST_CALC_CUOT  TD_VC_001,           
 @INNU_DIAS_VENC  TD_NU_015_006                
              
 Begin Tran SP_TCMOVI_BANC_U02      
     
 SELECT       
  @ISCO_EMPR = CO_EMPR,    
  @ISCO_USUA_MODI = CO_USUA,         
        @ISCO_BANC = CO_BANC ,               
  @ISNU_CNTA_BANC =  NU_CNTA_BANC ,              
  @ISAA_BNCO  = AA_BNCO  ,               
  @ISMM_BNCO = MM_BNCO ,              
  @ISTI_MOVI_BANC =  TI_MOVI_BANC,                
  @ISNU_COMP_BANC = NU_COMP_BANC ,               
  @IDFE_OPER = FE_OPER,               
  @ISCO_TIPO_OPER = CO_TIPO_OPER,               
  @ISCO_SUBR = CO_SUBR ,              
  @ISCO_TIPO_DOCU = CO_TIPO_DOCU ,               
  @ISNU_DOCU_BANC = NU_DOCU_BANC ,               
  @INFA_TIPO_CAMB = FA_TIPO_CAMB ,               
  @INFA_CAMB_EXTR = FA_CAMB_EXTR,            
  @ISCO_BANC_CHEQ = CO_BANC_CHEQ ,               
  @ISNU_CHEQ = NU_CHEQ  ,              
  @INIM_MOVI = IM_MOVI,               
  @ISTI_ENTI = TI_ENTI ,              
  @ISCO_ENTI = CO_ENTI ,               
  @ISDE_NOMB_ORDE = DE_NOMB_ORDE,               
  @ISSI_SOLO_BANC = SI_SOLO_BANC,               
  @ISDE_OBSE = DE_OBSE,               
  @IDFE_DISP = FE_DISP,              
  @ISCO_ENTR_REND = CO_ENTR_REND ,              
  @ISCO_UNID_CNTB = CO_UNID_CNTB,              
  @ISNU_RECI_COBR = NU_RECI_COBR,              
  @IDFE_RECI_COBR = FE_RECI_COBR  ,              
  @IDFE_DIFE =  FE_DIFE  ,              
  @ISCO_GRUP_CONC = CO_GRUP_CONC ,              
  @ISNU_SOLI  = NU_SOLI ,            
  @ISST_CALC_CUOT = ST_CALC_CUOT ,           
  @INNU_DIAS_VENC = NU_DIAS_VENC         
     
  FROM #TWMOVI_BANC_U02    
        
              
  If Rtrim(@ISCO_BANC_CHEQ) = ''              
     Select @ISCO_BANC_CHEQ = NULL              
              
  If Rtrim(@ISNU_CHEQ) = ''              
     Select @ISNU_CHEQ = NULL              
              
  If Rtrim(@ISCO_TIPO_DOCU) = ''              
     Select @ISCO_TIPO_DOCU = NULL              
              
  If Rtrim(@ISCO_ENTR_REND) = ''              
     Select @ISCO_ENTR_REND = NULL              
              
       
 IF NOT EXISTS ( SELECT *       
 FROM TDBANC_DIST       
 Where  CO_EMPR = @ISCO_EMPR            
 And CO_UNID_CONC = @ISCO_UNID_CNTB            
 And CO_BANC = @ISCO_BANC               
 And NU_CNTA_BANC = @ISNU_CNTA_BANC               
 And AA_BNCO = @ISAA_BNCO              
 And MM_BNCO = @ISMM_BNCO               
 And TI_MOVI_BANC = @ISTI_MOVI_BANC               
 And NU_COMP_BANC = @ISNU_COMP_BANC)          
       
 Begin       
       
              
  Update TCMOVI_BANC                
  Set CO_SUBR  = @ISCO_SUBR,              
 FA_TIPO_CAMB  = @INFA_TIPO_CAMB,              
 FA_CAMB_EXTR = @INFA_CAMB_EXTR,          
 IM_MOVI  = @INIM_MOVI,        
 FE_OPER  = @IDFE_OPER,              
 TI_ENTI  = @ISTI_ENTI,              
 CO_ENTI  = @ISCO_ENTI,                    
 DE_NOMB_ORDE  = @ISDE_NOMB_ORDE,              
 DE_OBSE  = @ISDE_OBSE  ,               
 CO_TIPO_DOCU  = @ISCO_TIPO_DOCU,               
 NU_DOCU_BANC  = @ISNU_DOCU_BANC,               
 CO_BANC_CHEQ  = @ISCO_BANC_CHEQ,                
 NU_CHEQ  = @ISNU_CHEQ,               
 SI_SOLO_BANC  = @ISSI_SOLO_BANC,               
 FE_DISP  = @IDFE_DISP,              
 CO_ENTR_REND  = @ISCO_ENTR_REND,              
 NU_RECI_COBR  = @ISNU_RECI_COBR,              
 FE_RECI_COBR  = @IDFE_RECI_COBR,              
 FE_DIFE  = @IDFE_DIFE,              
 CO_GRUP_CONC   = @ISCO_GRUP_CONC,           
 ST_CALC_CUOT = @ISST_CALC_CUOT,          
 NU_DIAS_VENC    = @INNU_DIAS_VENC,          
 CO_USUA_MODI  = @ISCO_USUA_MODI,              
 FE_USUA_MODI  = Getdate()              
 Where  CO_EMPR = @ISCO_EMPR            
 And CO_UNID_CONC = @ISCO_UNID_CNTB            
 And CO_BANC = @ISCO_BANC               
 And NU_CNTA_BANC = @ISNU_CNTA_BANC               
 And AA_BNCO = @ISAA_BNCO              
 And MM_BNCO = @ISMM_BNCO               
 And TI_MOVI_BANC = 'I'               
 And NU_COMP_BANC = @ISNU_COMP_BANC               
              
  If @@error <> 0              
     Begin              
       Rollback tran              
  Return              
     End              
                
End         
/*Actualizando estatus de la Solicitud*/              
              
UPDATE  TMSOLI_CABA               
SET  TI_SITU = 'LIQ',               
 CO_USUA_MODI = @ISCO_USUA_MODI,               
 FE_LIQU = @IDFE_OPER,              
 FE_USUA_MODI = getdate()              
WHERE   CO_EMPR = @ISCO_EMPR              
AND NU_SOLI = @ISNU_SOLI              
            
If @@error <> 0              
Begin              
 Rollback tran              
 Return              
End              
            
            
Commit Tran              
/*----------------------- Fin ---------------------------*/ 
GO
